home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / raytrace / pov / gen / form04a / sue / temp.frm < prev    next >
Encoding:
Text File  |  1994-01-25  |  564 b   |  18 lines
  1. Copyright (c) Sue Cunningham
  2.  
  3. cone1 = ellipse 1, 0.2 stack 10 grow 0.1;
  4. cone1a= ellipse 0.1, 0.2 stack 10 grow 10;
  5. cone2 = sphere 1, [cone1], sphere 1 delete 1 delete 3;
  6. s1 =  sphere 1 delete 1;
  7. seg1 = torus 0.5, 5;
  8. seg2 = [seg1], sphere 2.5, cone1 delete 2;
  9. // spacer = sphere -9 delete 1;
  10. seg3 = [seg1] stack 10, seg2, spacer -9;
  11. bigt = seg3 stack 30 in 10% twist 100,1 bend 270;
  12. s2 = ellipse 15, 3 stack 200 in 20% bend 270 twist 360, 3 grow 0.08;
  13. s2a = s2 scale 4;
  14. sosa = sphere 15 stack 10 in 25% bend 90;
  15. sos = sosa scale 4;
  16. bigt, s2a;
  17. end;
  18.